function [x,y,typ]=phaseShifterDelay_int(job,arg1,arg2)
x=[];y=[],typ=[]
select job
case 'plot' then
  standard_draw(arg1)
case 'getinputs' then
  [x,y,typ]=standard_inputs(arg1)
case 'getoutputs' then
  [x,y,typ]=standard_outputs(arg1)
case 'getorigin' then
  [x,y]=standard_origin(arg1)
case 'set' then
  y=needcompile
  while %t do
    [x,newparameters,needcompile]=scicos(arg1.model.rpar)
    arg1.model.rpar=x
    [ok,arg1]=adjust_s_ports(arg1)
    if ok then
      x=arg1
      y=needcompile
      typ=newparameters
      %exit=resume(%f)
    else
      %r=2
      %r=message(['SUPER BLOCK needs to be edited;';'Edit or exit by removing all edition'],['Edit';'Exit'])
      if %r==2 then typ=list(),%exit=resume(%t),end
    end
  end
case 'define' then
scs_m_1=scicos_diagram(..
        version="scicos4.2",..
        props=scicos_params(..
              wpar=[-24.167252,677.58132,138.10887,506.38498,938,494,0,0,955,511,73,88,1.3730392],..
              Title=["phaseShifterDelay_int",..
              "C:/Documents and Settings/Administrator/My Documents/scicos_work/scicom/demos/4-ssb/"],..
              tol=[0.0001;0.000001;1.000D-10;100001;0;0;0],..
              tf=3000,..
              context=" ",..
              void1=[],..
              options=tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],..
              list([5,1],[4,1]),[0.8,0.8,0.8]),..
              void2=[],..
              void3=[],..
              doc=list()))
scs_m_1.objs(1)=scicos_block(..
                gui="CONVSP_f",..
                graphics=scicos_graphics(..
                         orig=[171.01967,216.40043],..
                         sz=[40,40],..
                         flip=%t,..
                         theta=0,..
                         exprs=["64";"0"],..
                         pin=6,..
                         pout=21,..
                         pein=15,..
                         peout=[],..
                         gr_i=list(..
                         ["txt=[''Serial to Bus'';''Converter''];";
                         "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"],8),..
                         id="",..
                         in_implicit="E",..
                         out_implicit="E"),..
                model=scicos_model(..
                         sim=list("convsp",2),..
                         in=1,..
                         in2=[],..
                         intyp=1,..
                         out=64,..
                         out2=[],..
                         outtyp=1,..
                         evtin=1,..
                         evtout=[],..
                         state=[],..
                         dstate=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
                         0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0],..
                         odstate=list(),..
                         rpar=[],..
                         ipar=[],..
                         opar=list(),..
                         blocktype="d",..
                         firing=[],..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(2)=scicos_block(..
                gui="CONVPS_f",..
                graphics=scicos_graphics(..
                         orig=[389.60526,216.40043],..
                         sz=[40,40],..
                         flip=%t,..
                         theta=0,..
                         exprs=["64";"0"],..
                         pin=22,..
                         pout=9,..
                         pein=19,..
                         peout=[],..
                         gr_i=list(..
                         ["txt=[''Bus to Serial'';''Converter''];";
                         "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"],8),..
                         id="",..
                         in_implicit="E",..
                         out_implicit="E"),..
                model=scicos_model(..
                         sim=list("convps",2),..
                         in=64,..
                         in2=[],..
                         intyp=1,..
                         out=1,..
                         out2=[],..
                         outtyp=1,..
                         evtin=1,..
                         evtout=[],..
                         state=[],..
                         dstate=0,..
                         odstate=list(),..
                         rpar=[],..
                         ipar=[],..
                         opar=list(),..
                         blocktype="d",..
                         firing=[],..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(3)=scicos_block(..
                gui="OUT_f",..
                graphics=scicos_graphics(..
                         orig=[526.58825,279.30481],..
                         sz=[20,20],..
                         flip=%t,..
                         theta=0,..
                         exprs="2",..
                         pin=12,..
                         pout=[],..
                         pein=[],..
                         peout=[],..
                         gr_i=list(" ",8),..
                         id="",..
                         in_implicit="E",..
                         out_implicit=[]),..
                model=scicos_model(..
                         sim="output",..
                         in=-1,..
                         in2=-2,..
                         intyp=-1,..
                         out=[],..
                         out2=[],..
                         outtyp=1,..
                         evtin=[],..
                         evtout=[],..
                         state=[],..
                         dstate=[],..
                         odstate=list(),..
                         rpar=[],..
                         ipar=2,..
                         opar=list(),..
                         blocktype="c",..
                         firing=[],..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(4)=scicos_block(..
                gui="IN_f",..
                graphics=scicos_graphics(..
                         orig=[93.841398,280.03959],..
                         sz=[20,20],..
                         flip=%t,..
                         theta=0,..
                         exprs="2",..
                         pin=[],..
                         pout=11,..
                         pein=[],..
                         peout=[],..
                         gr_i=list(" ",8),..
                         id="",..
                         in_implicit=[],..
                         out_implicit="E"),..
                model=scicos_model(..
                         sim="input",..
                         in=[],..
                         in2=[],..
                         intyp=1,..
                         out=-1,..
                         out2=-2,..
                         outtyp=-1,..
                         evtin=[],..
                         evtout=[],..
                         state=[],..
                         dstate=[],..
                         odstate=list(),..
                         rpar=[],..
                         ipar=2,..
                         opar=list(),..
                         blocktype="c",..
                         firing=[],..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(5)=scicos_block(..
                gui="IN_f",..
                graphics=scicos_graphics(..
                         orig=[90.907362,226.40043],..
                         sz=[20,20],..
                         flip=%t,..
                         theta=0,..
                         exprs="1",..
                         pin=[],..
                         pout=6,..
                         pein=[],..
                         peout=[],..
                         gr_i=list(" ",8),..
                         id="",..
                         in_implicit=[],..
                         out_implicit="E"),..
                model=scicos_model(..
                         sim="input",..
                         in=[],..
                         in2=[],..
                         intyp=1,..
                         out=-1,..
                         out2=-2,..
                         outtyp=-1,..
                         evtin=[],..
                         evtout=[],..
                         state=[],..
                         dstate=[],..
                         odstate=list(),..
                         rpar=[],..
                         ipar=1,..
                         opar=list(),..
                         blocktype="c",..
                         firing=[],..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(6)=scicos_link(..
                  xx=[110.90736;162.44824],..
                  yy=[236.40043;236.40043],..
                  id="drawlink",..
                  thick=[0,0],..
                  ct=[1,1],..
                  from=[5,1,0],..
                  to=[1,1,1])
scs_m_1.objs(7)=scicos_block(..
                gui="CLKINV_f",..
                graphics=scicos_graphics(..
                         orig=[181.75317,393.51477],..
                         sz=[20,30],..
                         flip=%t,..
                         theta=0,..
                         exprs="1",..
                         pin=[],..
                         pout=[],..
                         pein=[],..
                         peout=13,..
                         gr_i=list(..
                         ["xo=orig(1);yo=orig(2)+sz(2)/3";"xstringb(xo,yo,string(prt),sz(1),sz(2)/1.5)"],..
                         8),..
                         id="",..
                         in_implicit=[],..
                         out_implicit=[]),..
                model=scicos_model(..
                         sim="input",..
                         in=[],..
                         in2=[],..
                         intyp=1,..
                         out=[],..
                         out2=[],..
                         outtyp=1,..
                         evtin=[],..
                         evtout=1,..
                         state=[],..
                         dstate=[],..
                         odstate=list(),..
                         rpar=[],..
                         ipar=1,..
                         opar=list(),..
                         blocktype="d",..
                         firing=-1,..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(8)=scicos_block(..
                gui="OUT_f",..
                graphics=scicos_graphics(..
                         orig=[519.05791,226.40043],..
                         sz=[20,20],..
                         flip=%t,..
                         theta=0,..
                         exprs="1",..
                         pin=9,..
                         pout=[],..
                         pein=[],..
                         peout=[],..
                         gr_i=list(" ",8),..
                         id="",..
                         in_implicit="E",..
                         out_implicit=[]),..
                model=scicos_model(..
                         sim="output",..
                         in=-1,..
                         in2=-2,..
                         intyp=-1,..
                         out=[],..
                         out2=[],..
                         outtyp=1,..
                         evtin=[],..
                         evtout=[],..
                         state=[],..
                         dstate=[],..
                         odstate=list(),..
                         rpar=[],..
                         ipar=1,..
                         opar=list(),..
                         blocktype="c",..
                         firing=[],..
                         dep_ut=[%f,%f],..
                         label="",..
                         nzcross=0,..
                         nmode=0,..
                         equations=list()),..
                doc=list())
scs_m_1.objs(9)=scicos_link(..
                  xx=[438.17669;519.05791],..
                  yy=[236.40043;236.40043],..
                  id="drawlink",..
                  thick=[0,0],..
                  ct=[1,1],..
                  from=[2,1,0],..
                  to=[8,1,1])
scs_m_1.objs(10)=scicos_block(..
                 gui="NDELAY_f",..
                 graphics=scicos_graphics(..
                          orig=[281.04597,269.30481],..
                          sz=[40,40],..
                          flip=%t,..
                          theta=0,..
                          exprs="64",..
                          pin=11,..
                          pout=12,..
                          pein=18,..
                          peout=[],..
                          gr_i=list(["txt=[''Delay''];";"xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"],..
                          8),..
                          id="",..
                          in_implicit="E",..
                          out_implicit="E"),..
                 model=scicos_model(..
                          sim=list("ndelay",2),..
                          in=1,..
                          in2=[],..
                          intyp=1,..
                          out=1,..
                          out2=[],..
                          outtyp=1,..
                          evtin=1,..
                          evtout=[],..
                          state=[],..
                          dstate=[0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
                          0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0],..
                          odstate=list(),..
                          rpar=[],..
                          ipar=64,..
                          opar=list(),..
                          blocktype="d",..
                          firing=[],..
                          dep_ut=[%f,%f],..
                          label="",..
                          nzcross=0,..
                          nmode=0,..
                          equations=list()),..
                 doc=list())
scs_m_1.objs(11)=scicos_link(..
                   xx=[113.8414;272.47454],..
                   yy=[290.03959;289.30481],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[1,1],..
                   from=[4,1,0],..
                   to=[10,1,1])
scs_m_1.objs(12)=scicos_link(..
                   xx=[329.6174;526.58825],..
                   yy=[289.30481;289.30481],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[1,1],..
                   from=[10,1,0],..
                   to=[3,1,1])
scs_m_1.objs(13)=scicos_link(..
                   xx=[191.75317;188.01924],..
                   yy=[393.51477;348.69126],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[5,-1],..
                   from=[7,1,0],..
                   to=[14,1,1])
scs_m_1.objs(14)=scicos_block(..
                 gui="CLKSPLIT_f",..
                 graphics=scicos_graphics(..
                          orig=[188.01924;348.69126],..
                          sz=[0.3333333,0.3333333],..
                          flip=%t,..
                          theta=0,..
                          exprs=[],..
                          pin=[],..
                          pout=[],..
                          pein=13,..
                          peout=[15;16],..
                          gr_i=list([],8),..
                          id="",..
                          in_implicit=[],..
                          out_implicit=[]),..
                 model=scicos_model(..
                          sim="split",..
                          in=[],..
                          in2=[],..
                          intyp=1,..
                          out=[],..
                          out2=[],..
                          outtyp=1,..
                          evtin=1,..
                          evtout=[1;1],..
                          state=[],..
                          dstate=[],..
                          odstate=list(),..
                          rpar=[],..
                          ipar=[],..
                          opar=list(),..
                          blocktype="d",..
                          firing=[%f,%f,%f],..
                          dep_ut=[%f,%f],..
                          label="",..
                          nzcross=0,..
                          nmode=0,..
                          equations=list()),..
                 doc=list())
scs_m_1.objs(15)=scicos_link(..
                   xx=[188.01924;191.01967],..
                   yy=[348.69126;262.11472],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[5,-1],..
                   from=[14,1,0],..
                   to=[1,1,1])
scs_m_1.objs(16)=scicos_link(..
                   xx=[188.01924;301.04597;301.04597],..
                   yy=[348.69126;348.69126;347.92659],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[5,-1],..
                   from=[14,2,0],..
                   to=[17,1,1])
scs_m_1.objs(17)=scicos_block(..
                 gui="CLKSPLIT_f",..
                 graphics=scicos_graphics(..
                          orig=[301.04597;347.92659],..
                          sz=[0.3333333,0.3333333],..
                          flip=%t,..
                          theta=0,..
                          exprs=[],..
                          pin=[],..
                          pout=[],..
                          pein=16,..
                          peout=[18;19],..
                          gr_i=list([],8),..
                          id="",..
                          in_implicit=[],..
                          out_implicit=[]),..
                 model=scicos_model(..
                          sim="split",..
                          in=[],..
                          in2=[],..
                          intyp=1,..
                          out=[],..
                          out2=[],..
                          outtyp=1,..
                          evtin=1,..
                          evtout=[1;1],..
                          state=[],..
                          dstate=[],..
                          odstate=list(),..
                          rpar=[],..
                          ipar=[],..
                          opar=list(),..
                          blocktype="d",..
                          firing=[%f,%f,%f],..
                          dep_ut=[%f,%f],..
                          label="",..
                          nzcross=0,..
                          nmode=0,..
                          equations=list()),..
                 doc=list())
scs_m_1.objs(18)=scicos_link(..
                   xx=[301.04597;301.04597],..
                   yy=[347.92659;315.01909],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[5,-1],..
                   from=[17,1,0],..
                   to=[10,1,1])
scs_m_1.objs(19)=scicos_link(..
                   xx=[301.04597;409.60526;409.60526],..
                   yy=[347.92659;347.92659;262.11472],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[5,-1],..
                   from=[17,2,0],..
                   to=[2,1,1])
scs_m_1.objs(20)=scicos_block(..
                 gui="phaseShifter_int",..
                 graphics=scicos_graphics(..
                          orig=[274.33774,210.4222],..
                          sz=[50,50],..
                          flip=%t,..
                          theta=0,..
                          exprs=["64";"90"],..
                          pin=21,..
                          pout=22,..
                          pein=[],..
                          peout=[],..
                          gr_i=list("xstringb(orig(1),orig(2),[''Phase'';''Shifter''],sz(1),sz(2),''fill'')",8),..
                          id="",..
                          in_implicit="E",..
                          out_implicit="E"),..
                 model=scicos_model(..
                          sim=list("phaseShifter_com",5),..
                          in=64,..
                          in2=[],..
                          intyp=1,..
                          out=64,..
                          out2=[],..
                          outtyp=1,..
                          evtin=[],..
                          evtout=[],..
                          state=[],..
                          dstate=[],..
                          odstate=list(),..
                          rpar=[],..
                          ipar=[],..
                          opar=list(),..
                          blocktype="c",..
                          firing=[],..
                          dep_ut=[%f,%t],..
                          label="",..
                          nzcross=0,..
                          nmode=0,..
                          equations=list()),..
                 doc=list())
scs_m_1.objs(21)=scicos_link(..
                   xx=[219.59109;265.76631],..
                   yy=[236.40043;235.4222],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[1,1],..
                   from=[1,1,0],..
                   to=[20,1,1])
scs_m_1.objs(22)=scicos_link(..
                   xx=[332.90917;381.03383],..
                   yy=[235.4222;236.40043],..
                   id="drawlink",..
                   thick=[0,0],..
                   ct=[1,1],..
                   from=[20,1,0],..
                   to=[2,1,1])
model=scicos_model(..
         sim="super",..
         in=[-1;-1],..
         in2=[],..
         intyp=1,..
         out=[-1;-1],..
         out2=[],..
         outtyp=1,..
         evtin=1,..
         evtout=[],..
         state=[],..
         dstate=[],..
         odstate=list(),..
         rpar=scs_m_1,..
         ipar=[],..
         opar=list(),..
         blocktype="h",..
         firing=[],..
         dep_ut=[%f,%f],..
         label="",..
         nzcross=0,..
         nmode=0,..
         equations=list())
  gr_i='xstringb(orig(1),orig(2),''phaseShifterDelay_int'',sz(1),sz(2),''fill'')';
  x=standard_define([2 2],model,[],gr_i)
end
endfunction
